home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / intpd.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  271 b   |  9 lines
  1. 10  REM*demo for-next interest calculation table
  2. 20  INPUT"Enter the amount to be invested";A
  3. 30  INPUT"Enter the number of years to be left on deposit";Y
  4. 40  INPUT"Enter the Interest Rate to be paid" ;I
  5. 50  FOR J=1 TO Y
  6. 60  LET A=A+(A*(I/100))
  7. 70  NEXT J
  8. 80  PRINT"TOTAL VALUE OF ACCOUNT"  ;A
  9.